home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / demo 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  184 b   |  5 lines
  1. 10 poke53280,0:poke53281,0:poke646,1:a$="[183][197][196][192][198][210][175]"
  2. 20 fori=1to7:a$(i)="  ":forj=1to5:a$(i)=a$(i)+mid$(a$,i,1):next:next
  3. 30 fori=1to7:printa$(i),a$(i),a$(i),a$(i):next
  4. 40 fori=7to1step-1:printa$(i),a$(i),a$(i),a$(i):next:goto30
  5.